SCENE ENCODING IN A$
====================

Not designed for saving much memory, but for fast printing and fast reaching to
the different components of the scene.


-Header (48 bytes):

	-Title (32 bytes)
	-Convex hull (4 bytes)
		x0,x1,y0,y1
	-Start coords (2 bytes)
		y,x
	-Body size (2 bytes; little endian)
	-Password (8 chars)
	
		let HEADERPOSTIT = 1 
		let HEADERLENTIT = WIDTHSCR 

		let HEADERPOSHULL = HEADERPOSTIT + HEADERLENTIT 
		let HEADEROFFHULLX0 = 0 
		let HEADEROFFHULLX1 = 1 
		let HEADEROFFHULLY0 = 2 
		let HEADEROFFHULLY1 = 3 
		let HEADERPOSHULLX0 = HEADERPOSHULL + HEADEROFFHULLX0 
		let HEADERPOSHULLX1 = HEADERPOSHULL + HEADEROFFHULLX1 
		let HEADERPOSHULLY0 = HEADERPOSHULL + HEADEROFFHULLY0 
		let HEADERPOSHULLY1 = HEADERPOSHULL + HEADEROFFHULLY1 
		let HEADERLENHULL = 4 

		let HEADERPOSSTART = HEADERPOSHULL + HEADERLENHULL 
		let HEADEROFFSTARTY = 0 
		let HEADEROFFSTARTX = 1 
		let HEADERPOSSTARTY = HEADERPOSSTART + HEADEROFFSTARTY 
		let HEADERPOSSTARTX = HEADERPOSSTART + HEADEROFFSTARTX 
		let HEADERLENSTART = 2 

		let HEADERPOSSIZE = HEADERPOSSTART + HEADERLENSTART 
		let HEADERLENSIZE = 2 
		
		let HEADERPOSPASSW = HEADERPOSLEN + HEADERLENSIZE 
		let HEADERLENPASSW = 8 
		
		let HEADERTOTALSIZE = HEADERPOSPASSW + HEADERLENPASSW - HEADERPOSTIT
	
-Body (variable):

	-For each row that has content, top to bottom in the whole screen:
		-For each horizontally contiguous sequence of the same item:
			-Ink, if different from the previous one (or initially), in the form
			of "\(ink *)" (2 bytes)
			-Position, in the form "\(at y,x)" (3 bytes)
			-Sequence of items, deployed (as many chars as length of sequence)
